setwd("C:\\Users\\lenovo\\Desktop\\R")
2 + 3 * 5

x <- 4 - pi/2
x + 1

print(y <- x + 1)

round(y , 2)

#install.packages("ggplot2")
#install.packages("dplyr")

p <- 0.2
delta <- p * 0.3 / 2
n <- 1.96^2*p*(1-p)/delta^2
n

save.image("Chapter1.Rdata")

  